﻿#!/usr/bin/perl -w

$^I=".bak";

while(<>){
	s/^Username=.*/Username=dmwang/;
	print;	
}

